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| "EDTSSCRR ESET - reset the terminal’ | 
MODULE EDTSSCRRESE ' Reset the terminal 
iDent = *'v04-000' ! File: SCRRESET.BLI Edit: JBS1007 

BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL QUIPHENT eGORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESER 


SOFTWARE IS FURNISHED UNDER A LICENSE ty MAY BE USED AND copes 
N ome WITH THE TERMS OF SUCH LICENSE AND WITH THE 
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USION OF ig Bl ABOVE gtd NOTICE. THIS SOFTWARE OR ANY OTHER 
; TES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


s 
a 
+ 
* 
* 
* 
a 
4 
* 
* 

'@ TRANSFERRED. + 
’ 
* 
s 
* 
* 
* 
* 
. 
‘ 
® 


So a ed td 


MEUM 9 OBNAMNEWN 0 OODNOUE WN OOODNOUN EWN 


> 8 on tt 


MEUM (CO OONOAUES WN (OO OOVNOUES WO 6 


ie phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Hd SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
i® CORPORATION. 

ie 34 My ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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'e¢ 
! FACILITY: EDT -=- The DEC Standard Editor 
i ABSTRACT: 


This module resets the terminal attributes to their state 
before change mode was entered. 
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! 

! 
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1 

; ENVIRONMENT: Runs at any access mode - AST reentrant 

AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 

MODIFIED BY: 

i 1-001 - Original. DUS 12-Feb-1981. This module was created by 
! extract ing the routine EDTSSSC RESET from module SCREEN. 
: Beguier't zed headers. { S$ 24-Feb-1981 
: module name. JBS 1981 

Revise eytorepeat logic. JBS 30-Jan-1982 
' 
i 


Change test for nokeypad command. SMB 23-Feb-1982 
Change test witli and add "$8apr for 1985 rminal type, moved here 
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; from EDT es Bs ss 
! 1-007 - Make sure the” terminal is 


n Se aaee "ati if it is a VT100. JBS 01-Apr-1983 
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eclarations -Sep-1 
SSBTTL "Declarations' 
TABLE OF CONTENTS: 


EDTSSCARESET porpeces SET = reset the terminal 1b-seo-1984 01:51:98 ' BLi Ze v4.0 


REQUIRE "EDTSRC: TRAROUNAM’; 

FORWARD ROUTINE 
EDTSS$SC_RESET : NOVALUE; 

' 

INCLUDE FILES: 

REQUIRE "EDTSRC:EDTREQ'; 


] 
MACROS: 
i NONE 
1 
EQUATED SYMBOLS: 
BIND 
NOKEYPAD_MODE = UPLIT (ZSTRING (ZCHAR (ASC_K_ESC), '>')); 
LITERAL 
NOKEYPAD_MODE_LEN = 2; 

OWN STORAGE: 

NONE 
EXTERNAL REFERENCES: 

In the routine 
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EDTSSCRRESET CRRESET = reset the terminal -S$ep-1984 01:41: VAX-11 Bliss-32 V 
thet ED Tease RESET = reset the tee tb-sep-1944 93:51:33 DISKSVMSMASTER: cto + sRCSScRRESET. BLI; pyee (3 
$ b6 } “gsarTe "EDTSSSC_RESET = reset the terminal’ 
568 GLOBAL ROUTINE EDTSSSC_RESET ! Reset the terminal 
cy ws : NOVALUE S 
x: 


'ee 
, FURL Pee, DESCRIPTION: 


This routine resets all the funny things we did to the terminal when 
entering screen mode. 


{ FORMAL PARAMETERS: 
NONE 

{ IMPLICIT INPUTS: 
DT$$G_TI_TYPE 
T$$G-KPAD 
DT$$G_INSERT_MODE 
IMPLICIT OUTPUTS: 
NONE 

{ ROUTINE VALUE : 

NONE 

{ SIDE EFFECTS: 


Puts the cursor at the bottom of the screen, and 
leaves change mode. 
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cxTeam, ROUT INE 
EDTSSFAT_LIT 
EDT$SOUT~FMTAUF 
EDTS$TI_CEAVECHA, 
EDTSSSC_POSABS : NOVALUE, 
4 SC_NONREVID : NOVALUE, 
DTSSSC“FULLSCLL : NOVALUE, 
EDTS TIZENBLAUTREP NOVALUE, ' Enable or disable autorepeat 
EDTSSSC_REP_MODE : NOVALUE ; ! Put the screen in replace mode 
EXTER 
EDTS$$G_TI Iw, ! The type of terminal we have 


EO TSEecKe Keyped ctivated? 
EDTS$$G_ INSERT _MODE; nsert mode 


c £¢.6OTS96_11_1VP EQL TERM_VT52) OR (.EDTSSG_TI_TYP EQL TERM_VT100)) 
BEGIN 
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EDTSSCRRESET DISSCRRESET = reset the terminal bse -1984 01:41: VAX-11 Bliss-32 V4.0-74 P 4 
¥04~000 EDrsase Rese? - reset the terminal : ~300 138% 93:51: DEEKSVMGMASTERSCEDT SRCTSCRRESET.BLIC4o* (3) 
; ' ? IF .EDTSSG_KPAD THEN EDTSSFMT_LIT (NOKEYPAD_MODE, NOKEYPAD_MODE_LEN); 
a | DTSSSC_FULLSCLL (); 
3 ' DTSSse-NONRE VID Q: 
3 1 , IF (.EDTSSG_INSERT_MODE NEQ 0) THEN EDTSSSC_REP_MODE (); 
i | t EDTSSTI_ENBLAUTREP (1); 
; 18¢ q Put cursor at bottom of screen. 
; DIS$$SC_POSABS (23, 0); 
; 188 ; 5 EDIseraT tit (UPLIFT (ZSTRING (ZCHAR (ASC_K_LF))), 1); 
3 ' , DTS$OUT“FMTBUF (); 
3 : z 3 Inform the terminal 1/0 routines that we are leaving screen mode. 
; 176 740 EDTSSTI_LEAVECHM (); 
; 17 74 END; 
3 176 rg 
es. 74 END; ! of routine EDTSS$SC_RESET 


- TITLE corescnacse! EDTSSCRRESET - reset the terminal 
IDENT \V04-000\ 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


68 + a5 1B Q0000 P.AAA: .ASCII GR \e\< ><0> : 
0 00 OA 00004 P.AAB: .ASCII <10><0><0><0> : 


NOKEYPAD_MODE= P.AAA 
EXTRN EDTSSOUT_FMTBUF 
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KEYPAD MODE 

S #2, EDTSSFMT LIT 

5 #0. EDTS$SC_FULLSCL 

$ 8 EDTSSS¢ NONRE VI 
DfS$G_INSERT_MODE 


$ 20, EDTS$SC_REP_MODE 
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vourooo bisese Reser Seesek tas corataal i e9-19 ie bt exsv MeMASTERSE BiosRe SCRRESET. eut;i%° (33 


1 DD 3$: PUSH : 07 
000000006 i } ie CAL § ai, EDTSstI. ENBLAUTREP : oe 
000000006 iP ish ett _POSABS : ores 
H ; 
fF eyee Sout 3 
990000006 F ALS Ataur : 07 
F ALL ty CEAVECHM + 074 
4$: E 3; 074 
; Routine Size: 112 bytes, Routine Sase: _EDTSCODE + 0008 
> 17% 744 1 
: 175 745 1 !<BLF/PAGE> 
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EDTSSCRRESET DISSCRRESET = reset the terminal 1b-se -1 VAX-11 Bliss-32 V E 
704-000 EDTSESC RERET co heset the rece tcat 30b7198e 93:52:83 SE SUmGMASTERSCLOT SRCSSCRRESET.BLIGt™” ca v 
3; 3 74 END ! of i TSSCRRESET i 
"8 Or? } of routine EDTSSCRRESE 
ae 48 0 ELUDOM + ¢ 
- ¢ 
- § 
i § 
; PSECT SUMMARY : 
; Name Bytes Attributes a 
; _EDTSCODE 120 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 
s ¢ 
: 
; Library Statistics : ‘ 
: coceres-- Symbols -------- Pages Processing ; < 
; File Total Loaded Percent Mapped Time 4 
; mi ¢ 
3 ~$255$0UA28:CEDT.SRCJEDT.L32;1 377 4 40 0:00.2 3 4 
3 RSET f EDT. SRCIPSECTS.L32;1 2 1 50 7 $6590: 3 ‘ 
s ¢ 
s ¢ 
- § 
: COMMAND QUALIFIERS ; : 
; Bk ey ee ee eee EA, OPT ENE EE DISTR BAEE A, FOek E501 SERNE ES 1 ORION IES SEARS SET MSRC$:SCRRESET.BLI/UPDATE=(ENH$:SCRR : 
3; Size: 112 of 4 8 data bytes : ‘ 
; Run Time: gp: : ¢ 
3; Elapsed Time: :1 3 : 4 
3 Lines/CPU Min: 411 ae | 
Ae ee 11202 m 4 
3 penety Ue 69 pages 3 4 
3; Compi bay Complete m 4 
- 4 
‘4 
s { 
| 
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e 4 
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e 4 
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e 4 
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e 4 
e 4 
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